E (SETQ $PRINT-BUDGET-MONTHLY nil)
READ (SALARY IN DSK (PRO HE))
READ (hes82 IN DSK (PRO HE))
BUDGET first-year (hes1 OUT DSK (PRO HE))
BUDGET second-year (hes2 OUT DSK (PRO HE))
BUDGET third-year (hes3 OUT DSK (PRO HE))
BUDGET fourth-year (hes4 OUT DSK (PRO HE))